﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class MovcontraFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As MovcontraBE
        Dim tmpMovcontra As MovcontraBE = New MovcontraBE()
        Try
            With tmpMovcontra
                .Fecha = convertDTFromDb.convertDateTime(dr.Item("Fecha"))
                .IdContrarecibo = convertDTFromDb.ConvertLong(dr.Item("IdContrarecibo"))
                .IdPago = convertDTFromDb.ConvertString(dr.Item("IdPago"))
                .Importe = convertDTFromDb.ConvertDecimal(dr.Item("Importe"))
                .NumFactura = convertDTFromDb.ConvertString(dr.Item("NumFactura"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
            End With
            Return tmpMovcontra
        Catch ex As Exception
            Throw
        Finally
            tmpMovcontra = Nothing
        End Try
    End Function
End Class
